<!--
Dim cr, t, q, db, fso
Sub window_onload()
    cr = Chr(13) & Chr(10): t = Chr(9): q = Chr(34)
    LoadGlossary
    Set fso = CreateObject("Scripting.FileSystemObject")
End Sub
Sub document_onclick()
    If LCase(window.event.srcElement.ID) = "desc" Then
        a = window.event.srcElement.Term
        hhctrl.TextPopup a, "", 5, 5, RGB(0, 0, 255), RGB(255, 255, 200)
    End If
End Sub
Sub document_onmousemove()
    Set hh = Document.All.tags("font")
    For Each h In hh
        If LCase(h.ID) = "desc" Then
            h.Style.BackgroundColor = Document.body.Style.BackgroundColor
        End If
    Next
    Set it = window.event.srcElement
    If LCase(it.ID) = "desc" Then
        it.Style.BackgroundColor = "yellow"
    End If
End Sub
Sub ClearFromCharacters(Text, ContiguousCharacters)
    Dim x
    Do
        x = InStr(Text, ContiguousCharacters)
        If x Then Text = Left(Text, x - 1) & Mid(Text, x + Len(ContiguousCharacters))
    Loop While x
End Sub
Sub LoadGlossary
    
    
End Sub
-->
